with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		(IUnknown(Add('Duration')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(258);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2010';
		LevelCount := 2;
		PaneWidth[False] := 256;
		AllowLinkBars := False;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		h1 := AddItem('M1');
		AddBar(h1,'Milestone','9/29/2010','9/29/2010',Null,Null);
		ItemBar[h1,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
	end;
	EndUpdate();
end

// BarResizing event - Occurs when a bar is moving or resizing.
procedure TForm1.G2antt1BarResizing(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( Items.SchedulePDM(Item,OleVariant(Key)) );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
		(IUnknown(Add('Duration')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(258);
	end;
	with ConditionalFormats.Add('%3',Null) do
	begin
		Bold := True;
		ApplyTo := EXG2ANTTLib_TLB.exFormatToItems;
	end;
	with ConditionalFormats.Add('%3 = 0',Null) do
	begin
		ForeColor := $c4c4c4;
		ApplyTo := EXG2ANTTLib_TLB.FormatApplyToEnum($3);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2010';
		LevelCount := 2;
		PaneWidth[False] := 256;
		Bars.Add('Task:Split').Shortcut := 'Task';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		h1 := AddItem('M1');
		AddBar(h1,'Milestone','9/27/2010','9/27/2010',Null,Null);
		ItemBar[h1,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
		h2 := AddItem('T1');
		AddBar(h2,'Task','9/27/2010','9/27/2010',Null,Null);
		ItemBar[h2,'',EXG2ANTTLib_TLB.exBarEndInclusive] := '9/27/2010';
		ItemBar[h2,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
		AddLink('L1',h1,'',h2,'');
		h3 := AddItem('T2');
		AddBar(h3,'Task','9/27/2010','9/27/2010',Null,Null);
		ItemBar[h3,'',EXG2ANTTLib_TLB.exBarEndInclusive] := '9/27/2010';
		ItemBar[h3,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
		AddLink('L2',h1,'',h3,'');
		Link['L2',EXG2ANTTLib_TLB.exLinkPDMWorkingDelay] := OleVariant(5);
		h4 := AddItem('M3');
		AddBar(h4,'Milestone','9/27/2010','9/27/2010',Null,Null);
		ItemBar[h4,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(False);
		AddLink('L3',h1,'',h4,'');
		Link['L3',EXG2ANTTLib_TLB.exLinkPDMWorkingDelay] := OleVariant(5);
		SchedulePDM(0,'');
	end;
	EndUpdate();
end

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.G2antt1AddItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			AddBar(Item,'Task',CellValue[OleVariant(Item),OleVariant(2)],CellValue[OleVariant(Item),OleVariant(4)],Null,Null);
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '8/3/1994';
		PaneWidth[False] := 256;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exDay;
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		OverviewVisible := EXG2ANTTLib_TLB.exOverviewShowAllVisible;
	end;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Items.AllowCellValueToItemBar := True;
	Columns.Item[OleVariant(2)].Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
	Columns.Item[OleVariant(4)].Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
		ShowEmptyBars := 0;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		h := AddItem('Task 1');
		AddBar(h,'Task','9/21/2006','9/21/2006',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarEndInclusive] := ItemBar[h,'',EXG2ANTTLib_TLB.exBarStart];
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
		h := AddItem('Task 2');
		AddBar(h,'Task','9/21/2006','9/21/2006',Null,Null);
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarEndInclusive] := '9/25/2006';
		ItemBar[h,'',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
	end;
	EndUpdate();
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

// BarResizing event - Occurs when a bar is moving or resizing.
procedure TForm1.G2antt1BarResizing(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		Items.SchedulePDM(Item,OleVariant(Key));
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	HeaderHeight := 36;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			HTMLCaption := '<b>End</b><br>Inclusive';
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
		end;
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
	end;
	with ConditionalFormats.Add(1,Null) do
	begin
		Bold := True;
		ApplyTo := EXG2ANTTLib_TLB.FormatApplyToEnum($2);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
		Bars.Add('Task:Split').Shortcut := 'Task';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','9/21/2006','9/23/2006',Null,Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','9/21/2006','9/26/2006',Null,Null);
		AddLink('link',h1,'',h2,'');
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
		SchedulePDM(0,'');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	SelForeColor := ForeColor;
	SelBackColor := BackColor;
	ShowFocusRect := False;
	with Columns do
	begin
		with (IUnknown(Add('Format')) as EXG2ANTTLib_TLB.Column) do
		begin
			FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' + 
	'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
			Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
		end;
	end;
	with Items do
	begin
		AddItem(OleVariant(10));
		AddItem(OleVariant(-8));
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with Columns do
	begin
		Add('C1');
		Add('C2');
		Add('C3');
	end;
	with Items do
	begin
		h := AddItem('Item 1');
		CellValue[OleVariant(h),OleVariant(1)] := 'SubItem 1.1';
		CellValue[OleVariant(h),OleVariant(2)] := 'SubItem 1.2';
		OutputDebugString( CellValue[OleVariant(h),OleVariant(1)] );
	end;
end

with G2antt1 do
begin
	(IUnknown(Columns.Add('Now')) as EXG2ANTTLib_TLB.Column).ComputedField := 'date(``)';
	Items.AddItem('');
end

// BarResize event - Occurs when a bar is moved or resized.
procedure TForm1.G2antt1BarResize(ASender: TObject; Item : HITEM;Key : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'Start: ' );
		OutputDebugString( Items.ItemBar[Item,OleVariant(Key),EXG2ANTTLib_TLB.exBarStart] );
		OutputDebugString( 'End: ' );
		OutputDebugString( Items.ItemBar[Item,OleVariant(Key),EXG2ANTTLib_TLB.exBarEnd] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/31/2009';
		LevelCount := 2;
		PaneWidth[False] := 96;
		var_Bar := Bars.Item['Task'];
	end;
	Columns.Add('Types');
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/4/2010','1/9/2010','',Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2010','1/9/2010','',Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	with Chart do
	begin
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exHour;
		ResizeUnitScale := EXG2ANTTLib_TLB.exMinute;
		ResizeUnitCount := 30;
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		Level[1].DrawGridLines := True;
	end;
	with Items do
	begin
		AddItem('Task');
		AddItem('Task');
		AddItem('Task');
		AddItem('Task');
		AddItem('Task');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '12/30/2002';
		LevelCount := 2;
		PaneWidth[False] := 0;
		UnitScale := EXG2ANTTLib_TLB.exHour;
		DrawGridLines := EXG2ANTTLib_TLB.exAllLines;
		Level[0].Alignment := Integer(EXG2ANTTLib_TLB.exHOutside) Or Integer(EXG2ANTTLib_TLB.CenterAlignment);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Chart.PaneWidth[False] := 0;
	Chart.ToolTip := '';
end

// CreateBar event - Fired when the user creates a new bar.
procedure TForm1.G2antt1CreateBar(ASender: TObject; Item : HITEM;DateStart : TDateTime;DateEnd : TDateTime);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			k := ItemBar[Item,'',EXG2ANTTLib_TLB.exBarsCount];
			AddBar(Item,'Order',OleVariant(DateStart),OleVariant(DateEnd),OleVariant(k),'your text');
		end;
		OutputDebugString( Items.ItemBar[Item,'',EXG2ANTTLib_TLB.exBarsCount] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarManual;
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		Bars.Copy('Task','Order');
	end;
	with Items do
	begin
		AddItem(OleVariant(1));
		AddItem(OleVariant(2));
		AddItem(OleVariant(3));
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/1/2001','1/6/2001','A',Null);
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/7/2001','B',Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarMove] := OleVariant(1);
		ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarMove] := OleVariant(1);
		ItemBar[0,'<B*>',EXG2ANTTLib_TLB.exBarMove] := OleVariant(1);
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/1/2001','1/6/2001','A',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarMove] := OleVariant(1);
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 96;
		LevelCount := 2;
	end;
	with Items do
	begin
		AddItem(Null);
		h := AddItem('Task 1');
		AddBar(h,'Task','1/5/2001','1/8/2001','1',Null);
	end;
	with Chart.Notes do
	begin
		with Add('1',OleVariant(G2antt1.Items.ItemByIndex[1]),'1','<img>2</img>') do
		begin
			PartShadow[EXG2ANTTLib_TLB.exNoteEnd] := False;
			PartBorderSize[EXG2ANTTLib_TLB.exNoteEnd] := 0;
			ClearPartBackColor(EXG2ANTTLib_TLB.exNoteEnd);
			PartCanMove[EXG2ANTTLib_TLB.exNoteEnd] := True;
			RelativePosition := OleVariant(0.5);
			PartVOffset[EXG2ANTTLib_TLB.exNoteEnd] := -36;
		end;
		ClipTo := EXG2ANTTLib_TLB.exNotesClipToItems;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
			OverlaidGroup := 'NewTask';
		end;
		with Bars.Copy('Task','NewTask') do
		begin
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
			OverlaidGroup := 'Task';
			Color := $ff;
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1','A1');
		AddBar(h,'NewTask','1/3/2001','1/5/2001','A2','A2');
		AddBar(h,'NewTask','1/4/2001','1/7/2001','A3','A3');
		AddBar(h,'Task','1/4/2001','1/7/2001','A4','A4');
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

// MouseDown event - Occurs when the user presses a mouse button.
procedure TForm1.G2antt1MouseDown(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		item := ItemFromPoint[-1,-1,column,hit];
		key := Chart.BarFromPoint[-1,-1];
		OutputDebugString( 'Item:' );
		OutputDebugString( item );
		OutputDebugString( 'Key:' );
		OutputDebugString( key );
		OutputDebugString( 'CellValue(i,0):' );
		OutputDebugString( Items.CellValue[OleVariant(item),OleVariant(0)] );
		Items.ItemBar[item,OleVariant(key),EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/4/2001','1/6/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	with (IUnknown(Columns.Add('Default')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
		PartialCheck := True;
	end;
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Null,'Child 1');
		InsertItem(h,Null,'Child 2');
		ExpandItem[h] := True;
	end;
	with VisualAppearance do
	begin
		Add(1,'XP:Button 3 12');
		Add(2,'XP:Button 3 11');
		Add(3,'XP:Button 3 10');
	end;
	CheckImage[EXG2ANTTLib_TLB.Unchecked] := 16777216;
	CheckImage[EXG2ANTTLib_TLB.Checked] := 33554432;
	CheckImage[EXG2ANTTLib_TLB.PartialChecked] := 50331648;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Default');
	Background[EXG2ANTTLib_TLB.exSplitBar] := $10000;
	BackColorLevelHeader := BackColor;
	with Chart do
	begin
		LevelCount := 2;
		PaneWidth[False] := 64;
		HistogramVisible := True;
		HistogramHeight := 64;
		OverviewHeight := 48;
		OverviewVisible := EXG2ANTTLib_TLB.exOverviewShowAll;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		with Level[0] do
		begin
			Label := OleVariant(4096);
			Alignment := Integer(EXG2ANTTLib_TLB.exHOutside) Or Integer(EXG2ANTTLib_TLB.CenterAlignment);
		end;
		with Level[1] do
		begin
			Label := '<%hh%>';
			Count := 6;
		end;
		UnitWidth := 26;
		PaneWidth[False] := 0;
		NonworkingHours := 15728895;
		ShowNonworkingUnits := False;
		ShowNonworkingHours := False;
	end;
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		with Level[0] do
		begin
			Label := OleVariant(4096);
			Alignment := Integer(EXG2ANTTLib_TLB.exHOutside) Or Integer(EXG2ANTTLib_TLB.CenterAlignment);
		end;
		with Level[1] do
		begin
			Label := '<%hh%>';
			Count := 6;
			ReplaceLabel['08'] := '<b>8</b> <font ;6>am';
			ReplaceLabel['14'] := '<b>8</b> <font ;6>pm';
		end;
		UnitWidth := 26;
		PaneWidth[False] := 0;
		NonworkingHours := 15728895;
		ShowNonworkingUnits := False;
		ShowNonworkingHours := False;
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	LinesAtRoot := EXG2ANTTLib_TLB.exLinesAtRoot;
	Indent := 13;
	HasButtons := EXG2ANTTLib_TLB.exWPlus;
	with Chart do
	begin
		FirstVisibleDate := '12/25/2010';
		LevelCount := 2;
		PaneWidth[False] := 0;
		ColumnsFormatLevel := '0';
		SelBackColor := G2antt1.SelBackColor;
		SelForeColor := G2antt1.SelForeColor;
	end;
	with (IUnknown(Columns.Add('P1')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
		PartialCheck := True;
	end;
	with Items do
	begin
		h := AddItem('Root');
		AddBar(InsertItem(h,Null,'Child 1'),'Task','1/2/2011','1/5/2011',Null,Null);
		AddBar(InsertItem(h,Null,'Child 2'),'Task','1/4/2011','1/7/2011',Null,Null);
		AddBar(InsertItem(h,Null,'Child 3'),'Task','1/7/2011','1/8/2011',Null,Null);
		ExpandItem[h] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 0;
		ColumnsFormatLevel := '|,1:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.CenterAlignment;
		Def[EXG2ANTTLib_TLB.exCellForeColor] := OleVariant(255);
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 0;
		ColumnsFormatLevel := '1:52,\"\"[bg=255]:2';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
	end;
	with ConditionalFormats.Add(1,Null) do
	begin
		Bold := True;
		ApplyTo := EXG2ANTTLib_TLB.FormatApplyToEnum($1);
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 24;
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1';
		ColumnsFont := (IUnknown(G2antt1.Font) as stdole_TLB.StdFont);
		with ColumnsFont do
		begin
			Size := 12;
			Name := 'Tahoma';
		end;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1[bg=255]:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Key')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(0);
		Visible := False;
		Def[EXG2ANTTLib_TLB.exCellBackColor] := OleVariant(15790320);
	end;
	with Chart do
	begin
		FirstVisibleDate := '12/30/2000';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Split','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Progress','1/3/2001','1/7/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Start')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.LeftAlignment;
	end;
	with (IUnknown(Columns.Add('End')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
		Visible := False;
		Alignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1:52,|,2:52';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	with (IUnknown(Columns.Add('Check')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
		Visible := False;
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		PaneWidth[False] := 48;
		ColumnsFormatLevel := '1';
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/3/2001','1/7/2001',Null,Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/8/2001',Null,Null);
	end;
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('Edit')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.EditType;
		Option[EXG2ANTTLib_TLB.exEditAllowContextMenu] := OleVariant(False);
	end;
	with Items do
	begin
		AddItem(OleVariant(10));
		AddItem(OleVariant(20));
	end;
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('DropDownList')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownListType;
		AddItem(1,'DDList 1',Null);
		AddItem(2,'DDList 2',Null);
		AddItem(3,'DDList 3',Null);
	end;
	with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownType;
		AddItem(1,'DDType 1',Null);
		AddItem(2,'DDType 2',Null);
		AddItem(3,'DDType 3',Null);
	end;
	with Items do
	begin
		CellValue[OleVariant(.AddItem(OleVariant(1))),OleVariant(1)] := G2antt1.Columns.Item[OleVariant(1)].Editor.FindItem[OleVariant(1)];
		CellValue[OleVariant(.AddItem(OleVariant(2))),OleVariant(1)] := G2antt1.Columns.Item[OleVariant(1)].Editor.FindItem[OleVariant(2)];
	end;
end

with G2antt1 do
begin
	with (IUnknown(Columns.Add('DropDownList')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownListType;
		AddItem(1,'First item',Null);
		AddItem(2,'Second item',Null);
		AddItem(3,'Third item',Null);
	end;
	with (IUnknown(Columns.Add('DropDown')) as EXG2ANTTLib_TLB.Column).Editor do
	begin
		EditType := EXG2ANTTLib_TLB.DropDownType;
		AddItem(1,'First item',Null);
		AddItem(2,'Second item',Null);
		AddItem(3,'Third item',Null);
	end;
	with Items do
	begin
		CellValue[OleVariant(AddItem(OleVariant(1))),OleVariant(1)] := 'Any';
		CellValue[OleVariant(AddItem(OleVariant(2))),OleVariant(1)] := 'Any';
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 32;
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'CP:1 -2 -2 2 2');
	end;
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2002';
		SelBarColor := $2ff0000;
		Bars.Item['Task'].Color := $1000000;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2002','1/4/2002','A',Null);
		AddBar(h,'Task','1/6/2002','1/10/2002','B',Null);
		AddBar(h,'Task','1/11/2002','1/14/2002','C',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 32;
	with VisualAppearance do
	begin
		Add(1,'c:\exontrol\images\normal.ebn');
		Add(2,'CP:1 -2 -2 2 2');
	end;
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2002';
		SelBarColor := $2000000;
		Bars.Item['Task'].Color := $1000000;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2002','1/4/2002','A',Null);
		AddBar(h,'Task','1/6/2002','1/10/2002','B',Null);
		AddBar(h,'Task','1/11/2002','1/14/2002','C',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 32;
	with VisualAppearance do
	begin
		Add(1,'gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZBi' + 
	'OEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6rY' + 
	'zuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2Txx' + 
	'gGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4F' + 
	'4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA==');
		Add(2,'CP:1 -2 -2 2 2');
	end;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2002';
		SelBarColor := $2000000;
		PaneWidth[False] := 48;
	end;
	Columns.Add('Task');
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/2/2002','1/4/2002','A',Null);
		AddBar(h,'Task','1/6/2002','1/10/2002','B',Null);
		AddBar(h,'Task','1/11/2002','1/14/2002','C',Null);
		ItemBar[h,'A',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
	end;
	EndUpdate();
end

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.G2antt1AddItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			AddBar(Item,'Task',CellValue[OleVariant(Item),OleVariant(2)],CellValue[OleVariant(Item),OleVariant(4)],Null,Null);
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '8/3/1994';
		PaneWidth[False] := 256;
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exDay;
		FirstWeekDay := EXG2ANTTLib_TLB.exMonday;
		OverviewVisible := EXG2ANTTLib_TLB.exOverviewShowAllVisible;
	end;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Items.AllowCellValueToItemBar := True;
	Columns.Item[OleVariant(2)].Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
	Columns.Item[OleVariant(4)].Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
	EndUpdate();
end

with G2antt1 do
begin
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/14/2001','1/16/2001','K4',Null);
		AddLink('L3',h3,'K3',h4,'K4');
		Link['<L*>',EXG2ANTTLib_TLB.exLinkShowDir] := OleVariant(False);
	end;
end

// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
procedure TForm1.G2antt1Click(ASender: TObject; );
begin
	with G2antt1 do
	begin
		with Chart do
		begin
			MarkNowColor := $ff;
			MarkNow := OleVariant(DateFromPoint[-1,-1]);
		end;
	end
end;

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '3/13/2012';
		PaneWidth[False] := 0;
		LevelCount := 2;
		MarkNowColor := $0;
		MarkNowWidth := 3;
		UnitWidth := 32;
		ResizeUnitScale := EXG2ANTTLib_TLB.exHour;
	end;
end

with G2antt1 do
begin
	with Chart do
	begin
		FirstVisibleDate := '3/13/2012';
		PaneWidth[False] := 0;
		LevelCount := 2;
		Level[0].Label := OleVariant(1048576);
		with Level[1] do
		begin
			Label := '<%ss%>';
			Count := 15;
		end;
		MarkNowColor := $ff;
		MarkNowWidth := 3;
		MarkNow := '3/13/2012 12:03:20 AM';
	end;
end

with G2antt1 do
begin
	with Chart do
	begin
		PaneWidth[False] := 0;
		LevelCount := 2;
		Level[0].Label := OleVariant(1048576);
		with Level[1] do
		begin
			Label := '<%ss%>';
			Count := 15;
		end;
		MarkNowColor := $ff0000;
		MarkNowWidth := 3;
		MarkNowDelay := 0.00069444;
	end;
	Columns.Add('Tasks');
	with Items do
	begin
		AddBar(AddItem('Item 1'),'Task','1/1/2008','1/1/2018',Null,Null);
	end;
end

with G2antt1 do
begin
	AntiAliasing := True;
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksWidth := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddItem('');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddItem('');
		AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddItem('');
		AddBar(h3,'Task','1/12/2001','1/14/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(-1);
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/18/2001','1/20/2001','K4',Null);
		AddLink('L3',h3,'K3',h4,'K4');
		Link['L3',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(1);
		AddItem('');
		h5 := AddItem('Task 5');
		AddBar(h5,'Task','1/22/2001','1/24/2001','K5',Null);
		AddLink('L4',h4,'K4',h5,'K5');
		Link['L4',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(2);
	end;
end

with G2antt1 do
begin
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
		LinksStyle := EXG2ANTTLib_TLB.exLinkSolid;
		LinksWidth := 2;
		LinksColor := $ff;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
	end;
end

with G2antt1 do
begin
	Columns.Add('Task');
	AntiAliasing := True;
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		PaneWidth[False] := 128;
		NonworkingDays := 0;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/6/2001','1/8/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkStyle] := OleVariant(0);
		Link['L1',EXG2ANTTLib_TLB.exLinkWidth] := OleVariant(2);
		Link['L1',EXG2ANTTLib_TLB.exLinkColor] := OleVariant(255);
		Link['L1',EXG2ANTTLib_TLB.exLinkShowRound] := OleVariant(2);
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/10/2001','1/12/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := 'A';
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(2);
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarKey] := 'A';
		end;
	end;
	Items.AllowCellValueToItemBar := True;
	with Chart do
	begin
		PaneWidth[False] := 256;
		FirstVisibleDate := '1/1/2002';
		LevelCount := 2;
		Bars.Item['Task'].OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsStack;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/4/2002','1/8/2002','A','A');
		h := AddItem('Task 2');
		AddBar(h,'Task','1/6/2002','1/10/2002','A','A');
		AddBar(h,'Task','1/4/2002','1/8/2002','B','B');
		ItemBar[h,'B',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		ScrollRange[EXG2ANTTLib_TLB.exStartDate] := '1/1/2001';
		ScrollRange[EXG2ANTTLib_TLB.exEndDate] := '1/1/2001';
		UnitScale := EXG2ANTTLib_TLB.exHour;
		NonworkingHours := 12582975;
		ShowNonworkingUnits := False;
		ShowNonworkingHours := False;
		Level[0].Alignment := Integer(EXG2ANTTLib_TLB.exHOutside) Or Integer(EXG2ANTTLib_TLB.CenterAlignment);
		UnitWidth := 18;
		PaneWidth[True] := 294;
		ScrollBar := False;
	end;
	OnResizeControl := EXG2ANTTLib_TLB.exDisableSplitter;
	EndUpdate();
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Progress','1/3/2001','1/5/2001',Null,Null);
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','P3','P3');
		OutputDebugString( 'K*' );
		OutputDebugString( ItemBar[0,'<K*>',EXG2ANTTLib_TLB.exBarsCount] );
		OutputDebugString( 'K* P*' );
		OutputDebugString( ItemBar[0,'<K* P*>',EXG2ANTTLib_TLB.exBarsCount] );
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		OutputDebugString( 'All' );
		OutputDebugString( ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarsCount] );
		OutputDebugString( 'A*' );
		OutputDebugString( ItemBar[0,'<A*>',EXG2ANTTLib_TLB.exBarsCount] );
		OutputDebugString( 'K*' );
		OutputDebugString( ItemBar[0,'<K*>',EXG2ANTTLib_TLB.exBarsCount] );
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		RemoveBar(0,'<K*>');
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		ClearBars(0);
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		RemoveBar(0,'<*>');
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		ItemBar[0,'<K*>',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
	end;
end

with G2antt1 do
begin
	Columns.Add('Tasks');
	Chart.FirstVisibleDate := '1/1/2001';
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1','K1');
		AddBar(AddItem('Task 2'),'Task','1/2/2001','1/4/2001','A2','A2');
		AddBar(AddItem('Task 3'),'Task','1/2/2001','1/4/2001','K3','K3');
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
	end;
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
		SelectOnClick := False;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1',Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/6/2001','K2',Null);
		AddBar(AddItem('Task 3'),'Task','1/8/2001','1/10/2001','K3',Null);
		SelectItem[FirstVisibleItem] := True;
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarIncomingBarsAllDebug] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarIncomingBarsDebug] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarIncomingLinksAllAsString] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarIncomingLinksAsString] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarOutgoingBarsAllDebug] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarOutgoingBarsDebug] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarOutgoingLinksAllAsString] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseMove event - Occurs when the user moves the mouse.
procedure TForm1.G2antt1MouseMove(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		b := Chart.BarFromPoint[-1,-1];
		i := ItemFromPoint[-1,-1,c,hit];
		OutputDebugString( Items.ItemBar[i,OleVariant(b),EXG2ANTTLib_TLB.exBarOutgoingLinksAsString] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		LevelCount := 2;
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 96;
		NonworkingDays := 0;
		AllowLinkBars := True;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','A','A');
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','B','B');
		AddLink('L1',h1,'A',h2,'B');
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','C','C');
		AddLink('L2',h2,'B',h3,'C');
		h4 := AddItem('Task 4');
		AddBar(h4,'Task','1/8/2001','1/10/2001','D','D');
		AddLink('L3',h1,'A',h4,'D');
	end;
	EndUpdate();
end

// MouseDown event - Occurs when the user presses a mouse button.
procedure TForm1.G2antt1MouseDown(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarSelected] := OleVariant(False);
			ItemBar[G2antt1.ItemFromPoint[-1,-1,c,hit],G2antt1.Chart.BarFromPoint[-1,-1],EXG2ANTTLib_TLB.exBarSelected] := OleVariant(True);
		end;
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 64;
		LevelCount := 2;
	end;
	with Items do
	begin
		AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001','K1',Null);
		AddBar(AddItem('Task 2'),'Task','1/4/2001','1/6/2001','K2',Null);
		AddBar(AddItem('Task 3'),'Task','1/8/2001','1/10/2001','K3',Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	(IUnknown(Columns.Add('Padding-Left')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exHeaderPaddingLeft] := OleVariant(18);
	with (IUnknown(Columns.Add('Padding-Right')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exHeaderPaddingRight] := OleVariant(18);
		HeaderAlignment := EXG2ANTTLib_TLB.RightAlignment;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	with (IUnknown(Columns.Add('Padding-Left')) as EXG2ANTTLib_TLB.Column) do
	begin
		Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
		Def[EXG2ANTTLib_TLB.exCellPaddingLeft] := OleVariant(18);
	end;
	(IUnknown(Columns.Add('No-Padding')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(True);
	(IUnknown(Columns.Add('Empty')) as EXG2ANTTLib_TLB.Column).Position := 0;
	with Items do
	begin
		CellValue[OleVariant(AddItem('Item A.1')),OleVariant(1)] := 'Item A.2';
		CellValue[OleVariant(AddItem('Item B.1')),OleVariant(1)] := 'Item B.2';
		CellValue[OleVariant(AddItem('Item C.1')),OleVariant(1)] := 'Item C.2';
	end;
	EndUpdate();
end

// AddItem event - Occurs after a new Item has been inserted to Items collection.
procedure TForm1.G2antt1AddItem(ASender: TObject; Item : HITEM);
begin
	with G2antt1 do
	begin
		with Items do
		begin
			AddBar(Item,'Task',CellValue[OleVariant(Item),OleVariant(2)],CellValue[OleVariant(Item),OleVariant(4)],Null,Null);
		end;
	end
end;

// Change event - Occurs when the user changes the cell's content.
procedure TForm1.G2antt1Change(ASender: TObject; Item : HITEM;ColIndex : Integer;var NewValue : OleVariant);
begin
	with G2antt1 do
	begin
		OutputDebugString( 'Locked:' );
		OutputDebugString( Items.IsItemLocked[Item] );
		with Columns.Item[OleVariant(ColIndex)] do
		begin
			Filter := NewValue;
			FilterType := EXG2ANTTLib_TLB.exPattern;
		end;
		ApplyFilter();
	end
end;

// MouseUp event - Occurs when the user releases a mouse button.
procedure TForm1.G2antt1MouseUp(ASender: TObject; Button : Smallint;Shift : Smallint;X : Integer;Y : Integer);
begin
	with G2antt1 do
	begin
		Edit(Items.LockedItem[EXG2ANTTLib_TLB.exTop,0]);
	end
end;

with G2antt1 do
begin
	ColumnAutoResize := False;
	ScrollBySingleLine := True;
	ContinueColumnScroll := False;
	Chart.FirstVisibleDate := '8/3/1994';
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	with Items do
	begin
		LockedItemCount[EXG2ANTTLib_TLB.exTop] := 2;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,0];
		CellEditor[OleVariant(h),OleVariant(0)].EditType := EXG2ANTTLib_TLB.EditType;
		h := LockedItem[EXG2ANTTLib_TLB.exTop,1];
		ItemHeight[h] := 4;
		ItemDivider[h] := 0;
		SelectableItem[h] := False;
	end;
end

// Event event - Notifies the application once the control fires an event.
procedure TForm1.G2antt1Event(ASender: TObject; EventID : Integer);
begin
	with G2antt1 do
	begin
		OutputDebugString( EventParam[-2] );
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
		ShowEmptyBars := 1;
		Bars.Add('Task:Split').Shortcut := 'Task';
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/21/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/25/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/25/2006','9/25/2006',Null,Null);
		ItemBar[0,'<*>',EXG2ANTTLib_TLB.exBarKeepWorkingCount] := OleVariant(True);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		(IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
		(IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column).Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
		ShowEmptyBars := 1;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/21/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/22/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/25/2006','9/25/2006',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	MarkSearchColumn := False;
	with Columns do
	begin
		Add('Tasks');
		with (IUnknown(Add('Start')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(1);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
		end;
		with (IUnknown(Add('End')) as EXG2ANTTLib_TLB.Column) do
		begin
			Def[EXG2ANTTLib_TLB.exCellValueToItemBarProperty] := OleVariant(543);
			Editor.EditType := EXG2ANTTLib_TLB.DateType;
		end;
	end;
	with Chart do
	begin
		FirstVisibleDate := '9/20/2006';
		LevelCount := 2;
		PaneWidth[False] := 256;
		NonworkingDays := 0;
	end;
	with Items do
	begin
		AllowCellValueToItemBar := True;
		AddBar(AddItem('Task 1'),'Task','9/21/2006','9/24/2006',Null,Null);
		AddBar(AddItem('Task 2'),'Task','9/22/2006','9/25/2006',Null,Null);
		AddBar(AddItem('Task 3'),'Task','9/23/2006','9/26/2006',Null,Null);
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 0;
		LevelCount := 2;
		FirstVisibleDate := '1/1/2008';
		AllowInsideZoom := True;
		AllowResizeInsideZoom := False;
		InsideZoomOnDblClick := False;
		DefaultInsideZoomFormat.BackColorChart := $ff00ff;
		with InsideZooms do
		begin
			SplitBaseLevel := False;
			DefaultWidth := 18;
			with Add('1/15/2008') do
			begin
				AllowInsideFormat := False;
				Width := 128;
			end;
		end;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 0;
		LevelCount := 2;
		FirstVisibleDate := '1/1/2008';
		AllowInsideZoom := True;
		AllowResizeInsideZoom := False;
		InsideZoomOnDblClick := False;
		DefaultInsideZoomFormat.BackColorChart := $ff;
		with InsideZooms do
		begin
			SplitBaseLevel := False;
			DefaultWidth := 18;
			Add('1/15/2008').AllowInsideFormat := False;
		end;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		PaneWidth[False] := 0;
		FirstVisibleDate := '1/1/2008';
		MarkTodayColor := BackColor;
		LevelCount := 2;
		MarkSelectDateColor := $7fff0000;
		SelectLevel := 1;
		SelectDate['1/15/2008'] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	DefaultItemHeight := 36;
	with Columns do
	begin
		with (IUnknown(Add('Column1')) as EXG2ANTTLib_TLB.Column) do
		begin
			Visible := False;
			Editor.EditType := EXG2ANTTLib_TLB.EditType;
		end;
		with (IUnknown(Add('Column2')) as EXG2ANTTLib_TLB.Column) do
		begin
			Visible := False;
			Editor.EditType := EXG2ANTTLib_TLB.EditType;
		end;
		(IUnknown(Add('Column3')) as EXG2ANTTLib_TLB.Column).Visible := False;
		with (IUnknown(Add('FormatLevel')) as EXG2ANTTLib_TLB.Column) do
		begin
			FormatLevel := '(0/1),2';
			Def[EXG2ANTTLib_TLB.exCellFormatLevel] := OleVariant(FormatLevel);
		end;
	end;
	with Items do
	begin
		h := AddItem('Cell 1.1');
		CellValue[OleVariant(h),OleVariant(1)] := 'Cell 1.2';
		CellValue[OleVariant(h),OleVariant(2)] := 'Cell 1.3';
		h := AddItem('Cell 2.1');
		CellValue[OleVariant(h),OleVariant(1)] := 'Cell 2.2';
		CellValue[OleVariant(h),OleVariant(2)] := 'Cell 2.3';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidGroup := 'OTask';
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsNone;
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
		with Bars.Copy('Task','OTask') do
		begin
			OverlaidGroup := 'Task';
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsStrict) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsCascade);
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		AddBar(h,'OTask','1/3/2001','1/5/2001','A2',Null);
		ItemBar[h,'A2',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

// CreateBar event - Fired when the user creates a new bar.
procedure TForm1.G2antt1CreateBar(ASender: TObject; Item : HITEM;DateStart : TDateTime;DateEnd : TDateTime);
begin
	with G2antt1 do
	begin
		Items.ItemBar[Item,'newbar',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'Level0';
	end
end;

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsCascade;
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		ItemBar[h,'A1',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'Level0';
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		ItemBar[h,'A3',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'Level0';
		AddBar(h,'Task','1/3/2001','1/5/2001','A2',Null);
		ItemBar[h,'A2',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		ItemBar[h,'A2',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'Level1';
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		ItemBar[h,'A4',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		ItemBar[h,'A4',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'Level1';
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := Integer(EXG2ANTTLib_TLB.exOverlaidBarsStackAutoArrange) Or Integer(EXG2ANTTLib_TLB.exOverlaidBarsStack);
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		AddBar(h,'Task','1/3/2001','1/5/2001','A2',Null);
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsStack;
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		AddBar(h,'Task','1/3/2001','1/5/2001','A2',Null);
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsIntersect;
			Overlaid[EXG2ANTTLib_TLB.exOverlaidBarsIntersect] := 'Progress';
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		AddBar(h,'Task','1/3/2001','1/5/2001','A2',Null);
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	DefaultItemHeight := 22;
	Columns.Add('Task');
	ScrollBySingleLine := True;
	BackColorAlternate := RGB(240,240,240);
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '12/28/2000';
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsOffset;
			Def[EXG2ANTTLib_TLB.exBarCaption] := '<%=%9%>';
		end;
	end;
	with Items do
	begin
		h1 := AddItem('Default');
		h := AddItem('Overlaid');
		AddBar(h,'Task','1/2/2001','1/4/2001','A1',Null);
		AddBar(h,'Task','1/3/2001','1/5/2001','A2',Null);
		AddBar(h,'Task','1/4/2001','1/7/2001','A3',Null);
		AddBar(h,'Task','1/5/2001','1/8/2001','A4',Null);
		h1 := AddItem('Default');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 48;
		LevelCount := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/5/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkText] := 'FS';
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/6/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkText] := 'SS';
		Link['L2',EXG2ANTTLib_TLB.exLinkStartPos] := OleVariant(0);
		Link['L2',EXG2ANTTLib_TLB.exLinkEndPos] := OleVariant(0);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMScheduleType] := OleVariant(2);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMScheduleDate] := '1/8/2001';
		SchedulePDM(0,'K1');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		FirstVisibleDate := '12/28/2000';
		PaneWidth[False] := 48;
		LevelCount := 2;
	end;
	with Items do
	begin
		h1 := AddItem('Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := AddItem('Task 2');
		AddBar(h2,'Task','1/2/2001','1/5/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkText] := 'FS';
		h3 := AddItem('Task 3');
		AddBar(h3,'Task','1/2/2001','1/6/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkText] := 'SS';
		Link['L2',EXG2ANTTLib_TLB.exLinkStartPos] := OleVariant(0);
		Link['L2',EXG2ANTTLib_TLB.exLinkEndPos] := OleVariant(0);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMScheduleType] := OleVariant(1);
		DefSchedulePDM[EXG2ANTTLib_TLB.exPDMScheduleDate] := '1/8/2001';
		SchedulePDM(0,'K1');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		AllowZoomOnFly := EXG2ANTTLib_TLB.exZoomOnFly;
		ResizeUnitScale := EXG2ANTTLib_TLB.exHour;
		Label[EXG2ANTTLib_TLB.exHour] := '<font ;5><b><%h%><br><%AM/PM%></b></font>';
		ZoomOnFlyCaption := '<br><c><b><font ;12><%=%C0 + '' / <fgcolor=00FF00>'' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b>' + 
	'End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + '' days''%><br><b>Working</b>:<%=''<b>'' + int(%258) + ''</b> days'' + (0:=(%258 ' + 
	'- int(%258)) ? ('' <fgcolor=FF0000><b>'' + round(24 * =:0) + ''</b> hours'') : '''') %>';
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
		AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		AllowZoomOnFly := EXG2ANTTLib_TLB.exZoomOnFly;
		ResizeUnitScale := EXG2ANTTLib_TLB.exHour;
		Label[EXG2ANTTLib_TLB.exHour] := '<font ;5><b><%h%><br><%AM/PM%></b></font>';
		ZoomOnFlyCaption := '';
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
		AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		AllowZoomOnFly := EXG2ANTTLib_TLB.exZoomOnFly;
		BackColorZoomOnFly := $f0f0f0;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
		AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		AllowZoomOnFly := Integer(EXG2ANTTLib_TLB.exZoomOnFlyIncludeSelectedItems) Or Integer(EXG2ANTTLib_TLB.exZoomOnFly);
		SelBackColor := $f0f0f0;
		SelectOnClick := False;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
		SelectItem[h] := True;
		h := AddItem('Task 2');
		AddBar(h,'Task','1/11/2001','1/14/2001','T2','T2');
		h := AddItem('Task 3');
		AddBar(h,'Task','1/8/2001','1/12/2001','T3','T3');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		LevelCount := 2;
		AllowZoomOnFly := Integer(EXG2ANTTLib_TLB.exZoomOnFlyIncludeNeighborItems) Or Integer(EXG2ANTTLib_TLB.exZoomOnFly);
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','T1','T1');
		h := AddItem('Task 2');
		AddBar(h,'Task','1/11/2001','1/14/2001','T3','T3');
		h := AddItem('Task 3');
		AddBar(h,'Task','1/8/2001','1/12/2001','T1','T1');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Task');
	with Chart do
	begin
		PaneWidth[False] := 48;
		FirstVisibleDate := '11/5/2000';
		LevelCount := 2;
		UnitScale := EXG2ANTTLib_TLB.exWeek;
		ResizeUnitScale := EXG2ANTTLib_TLB.exDay;
		AllowZoomOnFly := EXG2ANTTLib_TLB.exZoomOnFly;
		Bars.Item['Task'].OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsStack;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/17/2001','T1','T1');
		AddBar(h,'Task','1/18/2001','2/24/2001','T3','T3');
		h := AddItem(Null);
		AddBar(h,'','1/15/2001','1/15/2001','','Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.');
		SelectableItem[h] := False;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	ScrollBySingleLine := True;
	Columns.Add('Task');
	DrawGridLines := EXG2ANTTLib_TLB.exHLines;
	with Chart do
	begin
		DrawGridLines := EXG2ANTTLib_TLB.exHLines;
		AllowCreateBar := EXG2ANTTLib_TLB.exCreateBarAuto;
		AllowLinkBars := False;
		ResizeUnitScale := EXG2ANTTLib_TLB.exHour;
		PaneWidth[False] := 48;
		FirstVisibleDate := '1/1/2001';
		Bars.Item['Task'].OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsStack;
	end;
	with Items do
	begin
		h := AddItem('Task 1');
		AddBar(h,'Task','1/7/2001','1/10/2001','A1','A1');
		AddBar(h,'Task','1/8/2001','1/12/2001','A3','A3');
		ItemBar[h,'A3',EXG2ANTTLib_TLB.exBarColor] := OleVariant(65280);
		h := AddItem('Task 2');
		AddBar(h,'Task','1/7/2001','1/10/2001','A31','A31');
		AddBar(h,'Task','1/8/2001','1/12/2001','A3','A3');
		ItemBar[h,'A3',EXG2ANTTLib_TLB.exBarColor] := OleVariant(255);
		AddBar(AddItem(Null),'','1/10/2001','1/10/2001',Null,'The <b>Key</b> of the bar specifies the Z-Order when overlaying.');
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Columns.Add('Tasks');
	with Chart do
	begin
		NonworkingDays := 0;
		FirstVisibleDate := '9/17/2006';
		PaneWidth[False] := 64;
		LevelCount := 2;
		Bars.Item['Task'].OverlaidType := EXG2ANTTLib_TLB.exOverlaidBarsCascade;
	end;
	with Items do
	begin
		h1 := AddItem('Task');
		AddBar(h1,'Task','9/21/2006','9/27/2006','K1','K1');
		AddBar(h1,'Task','9/23/2006','9/24/2006','K2','K2');
		AddBar(h1,'Task','9/22/2006','9/25/2006','K3','K3');
		AddBar(h1,'Task','9/21/2006','9/27/2006','T1','T1');
		AddBar(h1,'Task','9/28/2006','9/29/2006','T2','T2');
		AddBar(h1,'Task','9/30/2006','10/3/2006','T3','T3');
		ItemBar[0,'<T*>',EXG2ANTTLib_TLB.exBarColor] := OleVariant(65280);
		ItemBar[0,'<K*>',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'A';
		ItemBar[0,'<T*>',EXG2ANTTLib_TLB.exBarOverlaidKey] := 'B';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	with Chart do
	begin
		FirstVisibleDate := '1/1/2001';
		with Bars.Copy('Summary','Aka1') do
		begin
			StartColor := $ff;
			EndColor := $ff0000;
		end;
		with Bars.Copy('Summary','Aka2') do
		begin
			StartColor := $ff00;
			EndColor := $ff00ff;
		end;
	end;
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('Item A');
		AddBar(h,'Task','1/2/2001','1/6/2001','B1',Null);
		ItemBar[h,'B1',EXG2ANTTLib_TLB.exBarName] := 'Aka1';
		h := AddItem('Item B');
		AddBar(h,'Task','1/2/2001','1/6/2001','B2',Null);
		ItemBar[h,'B2',EXG2ANTTLib_TLB.exBarName] := 'Aka2';
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	HTMLPicture['p1'] := 'c:\exontrol\images\card.png';
	HTMLPicture['p2'] := 'c:\exontrol\images\sun.png';
	AutoDrag := EXG2ANTTLib_TLB.exAutoDragCopySnapShot;
	LinesAtRoot := EXG2ANTTLib_TLB.exNoLinesAtRoot;
	HasLines := EXG2ANTTLib_TLB.exThinLine;
	ShowFocusRect := False;
	DefaultItemHeight := 26;
	Columns.Add('Task');
	with Chart do
	begin
		ShowNonworkingDates := False;
		FirstVisibleDate := '12/29/2000';
		PaneWidth[False] := 96;
		LevelCount := 2;
		with Bars.Item['Task'] do
		begin
			Color := $1000000;
			Height := 18;
		end;
	end;
	with Items do
	begin
		h := AddItem('<img>p1:32</img>Group 1');
		CellValueFormat[OleVariant(h),OleVariant(0)] := EXG2ANTTLib_TLB.exHTML;
		ItemDivider[h] := 0;
		ItemBold[h] := True;
		h1 := InsertItem(h,Null,'Task 1');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		h2 := InsertItem(h,Null,'Task 2');
		AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
		AddLink('L1',h1,'K1',h2,'K2');
		Link['L1',EXG2ANTTLib_TLB.exLinkText] := 'L1';
		h3 := InsertItem(h,Null,'Task 3');
		AddBar(h3,'Task','1/8/2001','1/10/2001','K3',Null);
		AddLink('L2',h2,'K2',h3,'K3');
		Link['L2',EXG2ANTTLib_TLB.exLinkText] := 'L2';
		h := AddItem('<img>p2:32</img>Group 2');
		CellValueFormat[OleVariant(h),OleVariant(0)] := EXG2ANTTLib_TLB.exHTML;
		ItemBold[h] := True;
		ItemDivider[h] := 0;
		h1 := InsertItem(h,Null,'Task');
		AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
		ExpandItem[0] := True;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	HTMLPicture['p1'] := 'c:\exontrol\images\card.png';
	HTMLPicture['p2'] := 'c:\exontrol\images\sun.png';
	Chart.PaneWidth[True] := 0;
	var_HTMLPicture := HTMLPicture['aka1'];
	HeaderHeight := 24;
	DefaultItemHeight := 48;
	DrawGridLines := EXG2ANTTLib_TLB.exRowLines;
	GridLineColor := RGB(240,240,240);
	SelBackMode := EXG2ANTTLib_TLB.exTransparent;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Columns.Item[OleVariant(0)].Def[EXG2ANTTLib_TLB.exCellValueFormat] := OleVariant(1);
	Columns.Item[OleVariant(0)].FormatColumn := 'value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`';
	Columns.Item[OleVariant(0)].Width := 112;
	Columns.Item[OleVariant(1)].Def[EXG2ANTTLib_TLB.exCellHasCheckBox] := OleVariant(1);
	Columns.Item[OleVariant(2)].LevelKey := '1';
	Columns.Item[OleVariant(3)].LevelKey := '1';
	Columns.Item[OleVariant(4)].LevelKey := '1';
	AutoDrag := EXG2ANTTLib_TLB.exAutoDragCopyImage;
	SingleSel := False;
	with Items do
	begin
		h := ItemByIndex[1];
		SelectItem[h] := True;
		h := ItemByIndex[2];
		SelectItem[h] := True;
		h := ItemByIndex[3];
		SelectItem[h] := True;
		LockedItemCount[EXG2ANTTLib_TLB.exBottom] := 1;
		h := LockedItem[EXG2ANTTLib_TLB.exBottom,0];
		CellValue[OleVariant(h),OleVariant(1)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...';
		CellSingleLine[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
		CellValueFormat[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.exHTML;
		CellHAlignment[OleVariant(h),OleVariant(1)] := EXG2ANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 1;
		ItemDividerLineAlignment[h] := EXG2ANTTLib_TLB.DividerTop;
	end;
	EndUpdate();
end

with G2antt1 do
begin
	BeginUpdate();
	Chart.PaneWidth[True] := 0;
	ColumnAutoResize := False;
	ContinueColumnScroll := False;
	rs := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset'))) as ADODB_TLB.Recordset);
	with rs do
	begin
		Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb',3,3,Null);
	end;
	DataSource := (IUnknown(rs) as ADODB_TLB.Recordset);
	Columns.Item[OleVariant(2)].LevelKey := '1';
	Columns.Item[OleVariant(3)].LevelKey := '1';
	Columns.Item[OleVariant(4)].LevelKey := '1';
	AutoDrag := EXG2ANTTLib_TLB.exAutoDragCopyText;
	SingleSel := False;
	with Items do
	begin
		h := ItemByIndex[1];
		SelectItem[h] := True;
		h := ItemByIndex[3];
		SelectItem[h] := True;
		h := ItemByIndex[4];
		SelectItem[h] := True;
		h := ItemByIndex[5];
		SelectItem[h] := True;
		LockedItemCount[EXG2ANTTLib_TLB.exBottom] := 1;
		h := LockedItem[EXG2ANTTLib_TLB.exBottom,0];
		CellValue[OleVariant(h),OleVariant(0)] := '<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...';
		CellSingleLine[OleVariant(h),OleVariant(0)] := EXG2ANTTLib_TLB.exCaptionWordWrap;
		CellValueFormat[OleVariant(h),OleVariant(0)] := EXG2ANTTLib_TLB.exHTML;
		CellHAlignment[OleVariant(h),OleVariant(0)] := EXG2ANTTLib_TLB.CenterAlignment;
		ItemDivider[h] := 0;
		ItemDividerLineAlignment[h] := EXG2ANTTLib_TLB.DividerTop;
	end;
	EndUpdate();
end